home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1470 / 3dabout.frm (.txt) next >
Encoding:
Visual Basic Form  |  1996-09-02  |  5.5 KB  |  179 lines
  1. VERSION 4.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "VBMax 3D Effects Demo - About"
  5.    ClientHeight    =   2565
  6.    ClientLeft      =   330
  7.    ClientTop       =   1965
  8.    ClientWidth     =   5415
  9.    ControlBox      =   0   'False
  10.    Height          =   2970
  11.    Icon            =   "3DAbout.frx":0000
  12.    Left            =   270
  13.    LinkTopic       =   "Form1"
  14.    LockControls    =   -1  'True
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   2565
  18.    ScaleWidth      =   5415
  19.    ShowInTaskbar   =   0   'False
  20.    Top             =   1620
  21.    Width           =   5535
  22.    Begin VB.Shape Shape1 
  23.       Height          =   555
  24.       Left            =   480
  25.       Top             =   960
  26.       Visible         =   0   'False
  27.       Width           =   4470
  28.    End
  29.    Begin VB.Label lblClose 
  30.       Appearance      =   0  'Flat
  31.       BackColor       =   &H80000005&
  32.       BackStyle       =   0  'Transparent
  33.       ForeColor       =   &H00000000&
  34.       Height          =   330
  35.       Left            =   4410
  36.       TabIndex        =   4
  37.       Top             =   1800
  38.       Width           =   540
  39.    End
  40.    Begin VB.Label lblName 
  41.       AutoSize        =   -1  'True
  42.       BackStyle       =   0  'Transparent
  43.       Caption         =   "Mike Stanley"
  44.       BeginProperty Font 
  45.          name            =   "MS Sans Serif"
  46.          charset         =   0
  47.          weight          =   400
  48.          size            =   9.75
  49.          underline       =   0   'False
  50.          italic          =   0   'False
  51.          strikethrough   =   0   'False
  52.       EndProperty
  53.       ForeColor       =   &H00000000&
  54.       Height          =   240
  55.       Left            =   1680
  56.       TabIndex        =   3
  57.       Top             =   1620
  58.       Width           =   1155
  59.    End
  60.    Begin VB.Label lblEMail 
  61.       AutoSize        =   -1  'True
  62.       BackStyle       =   0  'Transparent
  63.       Caption         =   "E-Mail:  74632.2227@compuserve.com"
  64.       BeginProperty Font 
  65.          name            =   "MS Sans Serif"
  66.          charset         =   0
  67.          weight          =   400
  68.          size            =   9.75
  69.          underline       =   0   'False
  70.          italic          =   0   'False
  71.          strikethrough   =   0   'False
  72.       EndProperty
  73.       ForeColor       =   &H00000000&
  74.       Height          =   240
  75.       Left            =   480
  76.       TabIndex        =   2
  77.       Top             =   1935
  78.       Width           =   3465
  79.    End
  80.    Begin VB.Label lblVBMax 
  81.       AutoSize        =   -1  'True
  82.       BackStyle       =   0  'Transparent
  83.       Caption         =   "Visual Basic to the Max"
  84.       BeginProperty Font 
  85.          name            =   "Times New Roman"
  86.          charset         =   0
  87.          weight          =   700
  88.          size            =   21.75
  89.          underline       =   0   'False
  90.          italic          =   -1  'True
  91.          strikethrough   =   0   'False
  92.       EndProperty
  93.       ForeColor       =   &H00FFFFFF&
  94.       Height          =   495
  95.       Left            =   540
  96.       TabIndex        =   1
  97.       Top             =   960
  98.       Width           =   4290
  99.    End
  100.    Begin VB.Label lblTitle 
  101.       AutoSize        =   -1  'True
  102.       BackStyle       =   0  'Transparent
  103.       Caption         =   "VBMax 3D Effects"
  104.       BeginProperty Font 
  105.          name            =   "Times New Roman"
  106.          charset         =   0
  107.          weight          =   700
  108.          size            =   24
  109.          underline       =   -1  'True
  110.          italic          =   -1  'True
  111.          strikethrough   =   0   'False
  112.       EndProperty
  113.       ForeColor       =   &H00800000&
  114.       Height          =   540
  115.       Left            =   840
  116.       TabIndex        =   0
  117.       Top             =   300
  118.       Width           =   3720
  119.    End
  120.    Begin VB.Label lblCloseCaption 
  121.       Appearance      =   0  'Flat
  122.       AutoSize        =   -1  'True
  123.       BackColor       =   &H80000005&
  124.       BackStyle       =   0  'Transparent
  125.       Caption         =   "Close"
  126.       ForeColor       =   &H000000FF&
  127.       Height          =   195
  128.       Left            =   4470
  129.       TabIndex        =   5
  130.       Top             =   1845
  131.       Width           =   390
  132.    End
  133. Attribute VB_Name = "frmAbout"
  134. Attribute VB_Creatable = False
  135. Attribute VB_Exposed = False
  136. Option Explicit
  137. Dim mo3D As New C3D
  138. Private Sub Form_Load()
  139.     CenterForm Me
  140.     With mo3D
  141.         .Style = gnFLOATING
  142.             .Caption lblVBMax, gnUSE_CONTROL_FONT
  143.             
  144.         .Style = gnRAISED
  145.             .Caption lblTitle, gnUSE_CONTROL_FONT
  146.         
  147.         .Style = gnRAISED
  148.             .Caption lblName, gnUSE_CONTROL_FONT
  149.             .Caption lblEMail, gnUSE_CONTROL_FONT
  150.             .Caption lblCloseCaption, gnUSE_CONTROL_FONT
  151.             .Depth = 2
  152.             .Border lblClose
  153.             .Border Shape1
  154.           
  155.         .Style = gnRECESSED
  156.             .Width = 15
  157.             .FormBorder Me
  158.     End With
  159. End Sub
  160. Private Sub lblClose_Click()
  161.     Unload Me
  162.     Set mo3D = Nothing
  163.     Set frmAbout = Nothing
  164. End Sub
  165. Private Sub lblClose_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  166.     With mo3D
  167.         .Depth = 2
  168.         .Width = 0
  169.         .Style = gnRECESSED
  170.         .Border lblClose
  171.     End With
  172. End Sub
  173. Private Sub lblClose_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  174.     With mo3D
  175.         .Style = gnRAISED
  176.         .Border lblClose
  177.     End With
  178. End Sub
  179.